home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1109copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.5 KB  |  38 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1109"
  4. Company = "Desktop Toys"
  5. title = "Desktop Toys, Volume 2"
  6. Price = 8.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Windows 95 CD-ROM"
  13. Title Description = "Just plain fun and silliness for your desktop enjoyment. Featuring all new toys, all new ideas, all new characters, and all new ways to digitally distract yourself. Race across your screen with the fastest cars ever to cross the desktop in "Speedway". Nine very different toys include something for everyone. Easy to use - grab the mouse and go! Works with any other software under Windows and on your Macintosh. Plenty of options and a variety of toys to keep your interest for times to come."
  14.  
  15. -------------------------------------
  16. dline = ""
  17. counter = 0
  18. repeat while dline <> title number
  19. counter = counter + 1
  20. dline = GetWord(1,   GetLine(titl,counter) )   
  21. test(dline = title number, LineInTitle = counter)
  22. end repeat 
  23. starttitle = LineInTitle
  24. num of titles shown = 6
  25. endtitle = starttitle + num of titles shown - 1
  26. titles = ""
  27. title highlight = ""
  28. repeat with counter = starttitle to endtitle
  29. nextline = GetLine(titl,counter)
  30. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  31. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  32. end repeat
  33. dpage = CurrentPageID
  34.  
  35. newtitle = FALSE
  36. end if
  37.  
  38.